home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disk User Volume 4 #4 / Commodore_Disk_User_Vol.4_4_1991_-.d64 / adder loader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  102 lines
  1. 1 poke53280,14:poke646,14:poke53281,6
  2. 2 print"[147]this loader pokes the data statements"
  3. 3 print"into memory then makes the machine code"
  4. 4 print"file named 'adder.49152' and saves it to"
  5. 5 print"disk"
  6. 6 print"any key to continue..."
  7. 7 poke198,0:wait198,1:poke198,0
  8. 10 rem -- adderloader: basic loader for loader adder @ 49152
  9. 20 print"[147] basic loader for loader adder @ 49152
  10. 30 [153]" please wait..."
  11. 100 [131]160,000,185,023,192,240,013,032,210,255
  12. 110 [131]200,192,000,208,243,238,004,192,208,238,076,165,193
  13. 120 [131]147,017,032,032,032,032,032:[143] [clr][dn][5spc]
  14. 130 [131]018,032,032,032,032,032,032,032,032,032:[143] [rvon][9spc]
  15. 140 [131]076,079,065,068,069,082,065,068,068,069:[143] loaderadde
  16. 150 [131]082,032,032,032,032,032,032,032,032,032:[143] r[9spc]
  17. 160 [131]017,017,013,032,084,072,073,083,032,080:[143] [2dn][ret] this p
  18. 170 [131]082,079,071,082,065,077,077,069,032,076:[143] rogrammel
  19. 180 [131]079,065,068,083,032,065,032,080,082,069:[143] oads a pre
  20. 190 [131]076,079,065,068,069,082,032,077,065,068:[143] loader mad
  21. 200 [131]069,032,032,032,066,089,032,065,078,032:[143] e   by an[spc]
  22. 210 [131]065,067,084,073,079,078,032,082,069,080:[143] action rep
  23. 220 [131]076,065,089,032,067,065,082,084,082,073:[143] lay cartri
  24. 230 [131]068,071,069,044,032,065,078,068,013,032:[143] dge, and[ret][spc]
  25. 240 [131]065,068,068,083,032,084,079,032,073,084:[143] adds to it
  26. 250 [131]032,065,078,032,079,082,068,073,078,065:[143]  an ordina
  27. 260 [131]082,089,032,076,079,065,068,073,078,071:[143] ry loading
  28. 270 [131]032,077,079,068,085,076,069,013,032,087:[143]  module[ret] w
  29. 280 [131]072,073,067,072,032,087,079,082,075,083:[143] hich works
  30. 290 [131]032,087,073,084,072,032,079,082,032,087:[143]  with or w
  31. 300 [131]073,084,072,079,085,084,032,065,078,089:[143] ithout any
  32. 310 [131]032,070,065,083,084,045,013,032,076,079:[143]  fast-[ret] lo
  33. 320 [131]065,068,069,082,046,032,073,084,032,065:[143] ader. it a
  34. 330 [131]083,083,085,077,069,083,032,084,072,065:[143] ssumes tha
  35. 340 [131]084,032,073,078,032,084,072,069,032,079:[143] t in the o
  36. 350 [131]082,073,071,073,045,013,032,078,065,076:[143] rigi-[ret] nal
  37. 360 [131]032,080,082,069,076,079,065,068,069,082:[143]  preloader
  38. 370 [131]044,032,074,077,080,032,036,070,070,068:[143] , jmp $ffd
  39. 380 [131]053,032,079,067,067,085,082,083,032,065:[143] 5 occurs a
  40. 390 [131]084,013,032,036,048,056,051,053,046,032:[143] t[ret] $0835.[spc]
  41. 400 [131]032,073,084,032,083,085,066,083,084,073:[143]  it substi
  42. 410 [131]084,085,084,069,083,032,070,079,082,032:[143] tutes for[spc]
  43. 420 [131]084,072,065,084,044,013,032,074,077,080:[143] that,[ret] jmp
  44. 430 [131]032,036,091,078,069,087,032,066,065,032:[143]  $[new ba[spc]
  45. 440 [131]079,070,032,084,072,073,083,032,076,079:[143] of this lo
  46. 450 [131]065,068,069,082,093,046,013,017,017,032:[143] ader].[ret][2dn][spc]
  47. 460 [131]078,079,087,032,080,076,069,065,083,069:[143] now please
  48. 470 [131]032,073,078,083,084,065,076,076,032,032:[143]  install[2spc]
  49. 480 [131]084,072,069,032,068,073,083,075,032,073:[143] the disk i
  50. 490 [131]078,032,084,072,069,013,032,068,082,073:[143] n the[ret] dri
  51. 500 [131]086,069,046,013,013,045,062,032,080,082:[143] ve.[2ret]-> pr
  52. 510 [131]079,071,046,032,078,065,077,069,063,032:[143] og. name?
  53. 520 [131]000,160,000,032,207,255,153,219,193,201:[143] [this zero terminates text]
  54. 530 [131]013,240,003,200,208,243,152,141,199,193
  55. 540 [131]032,190,193,076,234,193,169,008,170,160
  56. 550 [131]001,032,186,255,169,000,162,219,160,193
  57. 560 [131]032,189,255,234,169,000,032,213,255,134
  58. 570 [131]045,132,046,096,000,000,132,046,096,000
  59. 580 [131]000,160,001,032,186,255,169,000,162,000
  60. 590 [131]238,199,193,169,049,141,218,193,024,165:[143] 049 = "1" prefix main prg
  61. 600 [131]045,105,028,141,201,193,165,046,105,000
  62. 610 [131]141,203,193,169,076,141,210,193,160,000
  63. 620 [131]185,190,193,145,045,200,192,043,240,002
  64. 630 [131]208,244,165,045,141,054,008,165,046,141:[143] 054,008 = lb,hb of $0836
  65. 640 [131]055,008,160,000,185,097,194,240,013,032:[143] 055,008 = lb,hb of $0837
  66. 645 [143] $0835 was jmp $ffd5. this changes the operands to lb,hb of preloader ea.
  67. 646 [143] if that jmp $ffd5 is at a different location, merely change as above.
  68. 650 [131]210,255,200,192,000,208,243,238,034,194
  69. 660 [131]208,238,032,207,255,201,089,240,001,096
  70. 670 [131]169,043,141,218,193,169,218,141,201,193:[143] 043 = "+" prefix new loader
  71. 680 [131]169,193,141,203,193,169,096,141,207,193
  72. 690 [131]024,165,045,105,045,133,045,165,046,105
  73. 700 [131]000,133,046,032,190,193,076,089,225
  74. 710 [131]147,017,032,032,032,032,032,018,032,032,032:[143] [clr][dn][5spc][rv][3spc
  75. 720 [131]032,032,032,032,032,032,018,083,065,086:[143] [6spc][rvon]sav
  76. 730 [131]069,032,079,080,084,073,079,078,032,032:[143] e option[2spc]
  77. 740 [131]032,032,032,018,032,032,032,032,013,017:[143] [3spc][rvon][4spc][ret][dn]
  78. 750 [131]017,032,073,070,032,083,065,086,069,068:[143] [dn] if saved
  79. 760 [131]044,032,084,072,069,032,069,088,080,065:[143] , the expa
  80. 770 [131]078,068,069,068,032,076,079,065,068,069:[143] ded loade
  81. 780 [131]082,032,087,073,076,076,013,032,066,069:[143] r will[ret] be
  82. 790 [131]065,082,032,065,032,080,082,069,070,073:[143] ar a prefi
  83. 800 [131]088,044,032,034,043,034,032,066,069,070:[143] x, "+" bef
  84. 810 [131]079,082,069,032,084,072,069,032,079,082:[143] ore the or
  85. 820 [131]073,071,073,078,065,076,013,032,078,065:[143] iginal[ret] na
  86. 830 [131]077,069,046,032,084,072,069,032,077,065:[143] me. the ma
  87. 840 [131]073,078,032,080,082,071,032,084,079,032:[143] in prg to[spc]
  88. 850 [131]066,069,032,076,079,065,068,069,068,032:[143] be loaded
  89. 860 [131]077,085,083,084,013,032,066,069,065,082:[143] must[ret] bear
  90. 870 [131]032,065,032,034,049,034,032,080,082,069:[143]  a "1" pre
  91. 880 [131]070,073,088,046,017,013,032,083,065,086:[143] fix.[dn][ret] sav
  92. 890 [131]069,032,040,089,047,078,041,063,032,000,000:[143] e (y/n)?[spc][term.0]
  93. 900 [129]x[178]49152[164]49952:[135]y:[151]x,y:[130]
  94. 920 q$[178][199](34):[153]:[153]" (1) activate
  95. 930 print" (2) save to disk as "q$"adder.49152"q$""
  96. 940 geta$:ifa$=""then940
  97. 950 onval(a$)goto960,970:goto950
  98. 960 sys49152
  99. 970 open1,8,1,"adder.49152":print" saving "q$"adder.49152"q$
  100. 980 print#1,chr$(0);chr$(192);:forn=49152to49957
  101. 990 print#1,chr$(peek(n));:next:close1:print:print" done!":end
  102.